summaryrefslogblamecommitdiffstats
path: root/PKURZ.FOR
blob: 5bec2676cada3d23478693ee344525a0abe83af3 (plain) (tree)








































                                                                       
	SUBROUTINE PKURZ(IVR,IST,IND)
C
C Lenasi,maj 1990
C
C**********************************************************************
C* Postavi kurzor na IVR vrstico in IST stolpec. IND je normalno 0,   *
C* 1 je, ce prekoracimo stevilo 25 vrstic in 2, ce je stevilo stolpcev*
C* vecje kot 80. Na tem mestu v glavnem programu napisemo ali ustrezno*
C* delujemo. Po tem se kurzor prestavi na zacetek nove vrstice.       *
C* IVR, IST, IND so INTEGER tipa.                                     *
C**********************************************************************
C
C
	J=4
 	IND=0
	IF((IVR.LT.10).AND.(IST.LT.10)) J=1
	IF((IVR.LT.10).AND.(IST.GE.10)) J=2
	IF((IVR.GE.10).AND.(IST.LT.10)) J=3
	IF(IVR.GT.25) THEN
	IND=1
	RETURN
	ENDIF
	IF(IST.GT.80) THEN
	IND=2
	RETURN
	ENDIF
	GO TO (10,20,30,40),J
10	WRITE(*,15)IVR,IST
15	FORMAT(' [',I1,';',I1,'H',$)
	RETURN
20	WRITE(*,25)IVR,IST
25	FORMAT(' [',I1,';',I2,'H',$)
	RETURN
30	WRITE(*,35)IVR,IST
35	FORMAT(' [',I2,';',I1,'H',$)
	RETURN
40	WRITE(*,45)IVR,IST
45	FORMAT(' [',I2,';',I2,'H',$)
	RETURN
	END